home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP08.EXE / FONC1.PAS next >
Pascal/Delphi Source File  |  1991-01-15  |  1KB  |  41 lines
  1. program ReadChar;  {FONC1.PAS}
  2. uses
  3.   crt;  { unité de Turbo Pascal 6 }
  4.  
  5. var
  6.   ch: char;  { le caractère lu }
  7.  
  8. {------------------------------------------------}
  9. { LisCaract2                                     }
  10. {------------------------------------------------}
  11. function LisCaract2: char;
  12. begin
  13.   gotoxy(1,5);
  14.   write('Veuillez frapper un caractère: ');
  15.   Liscaract2:= readkey;
  16.   gotoxy(1,5);
  17.   clreol;      { effacer la ligne }
  18. end;
  19. {------------------------------------------------}
  20. { attendrela                                     }
  21. {------------------------------------------------}
  22. procedure attendrela(col,lign: byte);
  23. var  ch: char;
  24.  
  25. begin
  26.   gotoxy(col,lign);
  27.   write('Veuillez appuyer sur une touche...');
  28.   ch:= readkey;
  29. end;
  30. {------------------------------------------------}
  31.  
  32. begin { programme principal }
  33.   repeat
  34.     clrscr;
  35.     ch:= LisCaract2;
  36.     gotoxy(5,10);
  37.     write('Voici le caractère frappé: ',ch);
  38.     attendrela(1,25);
  39.   until ch = 'Q';
  40. end.
  41.